COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002		SUBROUTINE SCMSS
C00004 ENDMK
C⊗;
	SUBROUTINE SCMSS
C THIS IS FOR SML.CMD ONLY
       COMMON /SCM/V(78),I,LCNT,STAFF,JLIST(200),REND
	REND=1
	END
 
	SUBROUTINE RSTCEN
C FOR CENTERING WHOLE RESTS
	COMMON R2,JA,CNTR,J2,R3,RJQ(5),R9,RJ(12),RX3
	1 /LIMIT/LM,ITEM,L,I,IX /STF/RF(8),RSTJ2 /XRN/RN(1)
 
C R9 ≠ 0 AND R13 ≠ 0 WILL CENTER THE REST
	X=1000
C FINAL POSITION WILL BE 1/2 WAY FROM 1ST NOTE POS. TO BARLINE.
	DO 1 K=1,ITEM
	IF(CODN(K,L).NE.4)GO TO 1
	IF(RN(L).GT.2)GO TO 1
C FIND ONLY BARLINES (WDCNT=1)
	A=RN(L+3)
	IF(A.LT.X.AND.A.GT.RX3)X=A
1	CONTINUE
	IF(X.NE.1000)R9=RX3+(X-RX3)/2.-2.4*RSTJ2
C RX3 HAS IMPORTANT POS. INFO FOR NTS.
	END